use Tk;
use utf8;
binmode(STDOUT, ":encoding(utf8)");

my $mw = MainWindow->new;
$mw->Button(-text => "点击", -command => sub { print "Hello GUI!\n" })->pack;
MainLoop;